program Project1; // Zadanie 3.9

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i, suma : Integer;

begin
 Writeln('Program sumuje liczby calkowite w przedziale od 1 do 100.');
 suma := 0;
 i := 0;

 while i <= 100 do
  begin
  suma := suma + i ;
  i := i + 1;
 end;

 Writeln('Suma liczb calkowitych w przedziale od 1 do 100 wynosi ', suma, '.');

 Readln; // czeka na nacisniecie klawisza Enter
end.

